home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / chrchpr4.arc / FCSDATES.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  87 lines
  1. * Program FCSDATES - Sets up for member changes/inactives/birthdays reports
  2. ERASE
  3. @ 1,1 say chname
  4. @ 1,40 say 'Month of comparison is: '+curdate
  5. @ 2,1 say  'DATA DISK = '+D
  6. @ 3,10 Say '        Special Full-Membership Selections         2-5-/FCSDATES/'
  7. @ 6,10 say  '1)  Wedding Anniversaries This Month                      [OL]'
  8. @ 7,10 say  '2)  Birthdays This Month                                  [CL]'
  9. @ 8,10 say  '3)  New People This Month                                 [CL]'
  10. @ 9,10 say  '4)  People with Address/Phone Changes This Month          [CL]'
  11. @ 10,10 say '5)  People Just Made Full-Church-Inactive This Month      [CL]'
  12. @ 11,10 say '6)  All Full-Church-Inactive People                       [CL]'
  13. ?
  14. Accept '          Enter selection ' to NSEL
  15. ?
  16. Store d+':MEMBERS index '+d+':MEMBERS' to MFILE
  17. USE &MFILE
  18. Store 'ALL' to ANAME1
  19. Store T to INVALID1
  20. Do while INVALID1
  21.  Store F to INVALID1
  22.  Store F to BRTHDAYS
  23.  Do case
  24.   CASE NSEL='1'
  25.     Store d+':FCMEMBRS' to MFILE
  26.     Store d+':FCMEMBRS.NDX' to MFILENDX
  27.     If .not. file(MFILE) .or. .not. file(MFILENDX)
  28.       ? 'FCMEMBERS file not found. Now creating it.'
  29.       Do MGFCROST.CMD
  30.       Store d+':FCMEMBRS' to MFILE
  31.     endif
  32.     USE &MFILE index &MFILENDX
  33.     Store CHNAME+' - Wedding Anniversaries this Month    ' to actvname
  34.     Store 'ALL' to ANAME1
  35.     Store 'ANAME1' to ANAME
  36.     Store "($(SPEC:DATES,10,2)<>$(indate,1,2))" to BNAME
  37.     Store 'Anniversary' to FCOLHDR
  38.     Store '$(spec:dates,10,8)' to fcolumn
  39.     Store '~' to MSEL
  40.     Do MONELINE.CMD
  41.   CASE NSEL='2' .or. NSEL='3' .or. NSEL='4' .or. NSEL='5' .or. NSEL='6'
  42.     If NSEL='2'
  43.       Store CHNAME+'     BIRTHDAYS for ' to actvname
  44.       Store "$(MEMBSTATUS,2,1)='*' .or. $(birthdate,1,2)<>inbmo)" to BNAME
  45.       Store T to BRTHDAYS
  46.       else
  47.       if NSEL='6'
  48.       Store CHNAME+'  ALL INACTIVES  - -  ' to ACTVNAME
  49.       Store "$(MEMBSTATUS,2,1)<>'*' ) " to BNAME
  50.       else
  51.       if NSEL='3'
  52.       Store CHNAME+'   New People in ' to ACTVNAME
  53.       Store "$(membstatus,2,1)='*' .or. $(dates,1,4)<>inmo) " to BNAME
  54.       else
  55.       if NSEL='4'
  56.       Store CHNAME+'   Address / Phone Changes - ' to ACTVNAME
  57.       Store "$(membstatus,2,1)='*' .or. $(dates,6,4)<>inmo) " to BNAME
  58.       else
  59.       if NSEL='5'
  60.       Store CHNAME+'   Inactive People, as of  ' to ACTVNAME
  61.       Store "$(membstatus,2,1)<>'*' .or. $(dates,6,4)<>inmo) " to BNAME
  62.       endif
  63.       endif
  64.       endif
  65.       endif
  66.     endif
  67.     ? 'Now printing a Changes List.'
  68.    DO MSPMINAC.CMD
  69.   CASE !(NSEL)='Q'
  70.     Store F to LEVEL3
  71.     STORE F TO LEVEL2
  72.   OTHERWISE
  73.     ACCEPT 'Illegal entry.  Please enter again ' to NSEL
  74.     Store T to INVALID1
  75.   ENDCASE
  76. ENDDO
  77. RETURN
  78. irthdate,1,2)<>inbmo)" to BNAME
  79.       Store T to BRTHDAYS
  80.       else
  81.       if NSEL='6'
  82.       Store CHNAME+'  ALL INACTIVES  - -  ' to ACTVNAME
  83.       Store "$(MEMBSTATUS,2,1)<>'*' ) " to BNAME
  84.       else
  85.       if NSEL='3'
  86.       Store CHNAME+'   New People in ' to ACTVNAME
  87.       Store "$(membstatus,2,1)='*' .or. $(d